‹#›
Inventor API 中的零件图、部件图和工程图
查看工作特征
•工作特征在集合中的排列顺序和浏览器栏中显示顺序一致
•可以通过名称检索 (但是名称可能会被翻译成本地语言)
Public Sub GetWorkFeatures()
Dim oPartDef As PartComponentDefinition
oPartDef = _InvApplication.ActiveDocument.ComponentDefinition
' Get the X-Y Plane work plane.
Dim oXYPlane As WorkPlane
oXYPlane = oPartDef.WorkPlanes.Item(3)
Debug.Print(oXYPlane.Name)
' Get the origin point.
Dim oOriginPoint As WorkPoint
oOriginPoint = oPartDef.WorkPoints.Item("工作点 1")
Debug.Print(oOriginPoint.Name)
End Sub